
  set scheme lean2 

use "Temp/Master.dta" , clear
/// Balanced sample GDP share
 
collapse (mean) tax_non_trade_real tax_non_trade_pcGDP if expansion == 0, by(year) 
twoway (line tax_non_trade_real year, c(1) yaxis(1) ytitle( "Real revenue (labor days per capita)",axis(1) ))(line tax_non_trade_pcGDP year, c(2) yaxis(2) ytitle( "Tax revenues, share of GDP",axis(2))),   graphregion(color(white))  bgcolor(white)  bgcolor(white)  ytitle("Real revenue (labor days per capita)") xtitle("Year" ) yla(,nogrid)   ylabel(0(20)60)        xlabel(1900(20)2020)   legend(pos(11) ring(0) label(1 "Taxes  excl. trade & resources: wage deflator")  label(2 "Taxes  excl. trade & resources: share of GDP") region(lcolor(white)) col(1))
			
graph export    "Output/Graphs/Appendix/APP_FIG_2_6a.pdf", replace

use "Temp/Master.dta" , clear
 /// Full sample GDP share
 
collapse (mean) tax_non_trade_real tax_non_trade_pcGDP, by(year) 
twoway (line tax_non_trade_real year, c(1) yaxis(1) ytitle("Real revenue (labor days per capita)",axis(1) ))(line tax_non_trade_pcGDP year, c(2) yaxis(2) ytitle( "Tax revenues, share of GDP",axis(2))),   graphregion(color(white))  bgcolor(white)  bgcolor(white)  ytitle("Real revenue (labor days per capita)") xtitle("Year" ) yla(,nogrid)   ylabel(0(20)60)        xlabel(1900(20)2020)   legend( pos(11) ring(0) label(1 "Taxes  excl. trade & resources: wage deflator")  label(2 "Taxes  excl. trade & resources: share of GDP") region(lcolor(white)) col(1))
			
graph export    "Output/Graphs/Appendix/APP_FIG_2_6b.pdf", replace


use "Temp/Master.dta" , clear
 /// Balanced sample deflator scatter
 
collapse (mean) tax_non_trade_real tax_non_trade_pcGDP if expansion == 0, by(year) 
scatter tax_non_trade_real tax_non_trade_pcGDP , xtitle( "Tax revenues, share of GDP") ytitle("Real revenue (labor days per capita)") ,   graphregion(color(white))  bgcolor(white)  bgcolor(white)  ytitle("Real revenue (labor days per capita)") xtitle("Share of GDP" ) yla(,nogrid)   ylabel(0(20)60)         

graph export    "Output/Graphs/Appendix/APP_FIG_2_6c.pdf", replace


use "Temp/Master.dta" , clear
 /// Full sample deflator scatter
 
collapse (mean) tax_non_trade_real tax_non_trade_pcGDP , by(year) 
scatter tax_non_trade_real tax_non_trade_pcGDP , xtitle( "Tax revenues, share of GDP") ytitle( "Real revenue (labor days per capita)") ,   graphregion(color(white))  bgcolor(white)  bgcolor(white)  ytitle("Real revenue (labor days per capita)") xtitle("Share of GDP" ) yla(,nogrid)   ylabel(0(20)60)         

graph export    "Output/Graphs/Appendix/APP_FIG_2_6d.pdf", replace



